|
AutoCAD VBA : Einen Block erstellen aus vorhandenen Blöcken in einer Zeichnung
jemuehh am 14.08.2007 um 23:17 Uhr (0)
Danke für den Tip!Ich hatte das schon mal ausprobiert, bin aber an einer Stelle nichtweitergekommen. Jetzt funktionierts mit dem Code:Dim nBlock As AcadBlockDim InsPoint(2) As DoubleDim IDpairs As IntegerDim mBlock As AcadBlockReferenceDim i As IntegerBlock erstellenSet nBlock = Blocks.Add(InsPoint, "AS_STUEHLE")nBlock.Origin = ASbaseObjekte zusammenfassenCopyObjects ASobj, nBlock, IDpairs Set mBlock = ThisDrawing.ModelSpace.InsertBlock(ASbase, "AS_STUEHLE", 1, 1, 1, 0)For i = 0 To ASgesamt - 1 ASobj(i). ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Einen Block erstellen aus vorhandenen Blöcken in einer Zeichnung
jemuehh am 09.08.2007 um 08:29 Uhr (0)
Hallo Zusammen,ich möchte in einer Zeichnung mehrere Blöcke zu einem neuen Block zusammenfassen.Ich habe verschiedene Varianten ausprobiert, unter anderem COPYOBJECTS, aber so wie ich mir das vorstelle funktioniert das nichts. (bzw. funktioniert überhaupt nicht)Ich habe die Blöcke, aus denen ein neuer Block erstellt werden sollen, mit Dim ASobj() As AcadEntityin eine Objectkollektion zusammengefasst.Hat jemand eine grundsätzliche Herangehensweise an dieses Problem?Vielen Dank für eure Hilfe!!!VG, Jens
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Einen Block erstellen aus vorhandenen Blöcken in einer Zeichnung
jemuehh am 14.08.2007 um 23:33 Uhr (0)
Hab die Antwort durch ausprobieren selber gefunden!Durch umbenennen des Blocks mit seinem .Handle lassen sich nun beliebig viele Blöcke erzeugen und in die Zeichnung einfügen.Besten Dank nochmal!!MFGJensDim nBlock As AcadBlockDim InsPoint(2) As DoubleDim IDpairs As IntegerDim mBlock As AcadBlockReferenceDim i As IntegerBlock erstellenSet nBlock = Blocks.Add(InsPoint, "AS_STUEHLE")nBlock.Origin = ASbaseObjekte zusammenfassenCopyObjects ASobj, nBlock, IDpairs Set mBlock = ThisDrawing.ModelSpace.InsertBlock( ...
| | In das Form AutoCAD VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
